(Fread_non_nil_coding_system): Supply the arg

INHERIT-INPUT-METHOD to Fcompleting_read.
(Fread_coding_system): Likewise.

diff --git a/src/coding.c b/src/coding.c
index 548a7388527f2cfcd71fa39037ada74bbf7e0f1d..1e0e992ea3585e8d9c037411cc651c592bb50d63 100644 (file)
--- a/src/coding.c
+++ b/src/coding.c
@@ -3079,7 +3079,7 @@ DEFUN ("read-non-nil-coding-system", Fread_non_nil_coding_system,
   do
     {
       val = Fcompleting_read (prompt, Vobarray, Qcoding_system_spec,
-                             Qt, Qnil, Qnil, Qnil);
+                             Qt, Qnil, Qnil, Qnil, Qnil);
     }
   while (XSTRING (val)->size == 0);
   return (Fintern (val, Qnil));
@@ -3091,7 +3091,7 @@ DEFUN ("read-coding-system", Fread_coding_system, Sread_coding_system, 1, 1, 0,
      Lisp_Object prompt;
 {
   Lisp_Object val = Fcompleting_read (prompt, Vobarray, Qcoding_system_p,
-                                     Qt, Qnil, Qnil, Qnil);
+                                     Qt, Qnil, Qnil, Qnil, Qnil);
   return (XSTRING (val)->size == 0 ? Qnil : Fintern (val, Qnil));
 }